Dim fso, fld, TestFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.CreateFolder("c:\New Test Folder")
Set fso = CreateObject("Scripting.FileSystemObject")
Set TestFile = fso.CreateTextFile("c:\Nowy folder testowy\hello.txt", True)
TestFile.WriteLine("Witaj, wiecie!")
TestFile.Close
